home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1986 September / 1986-09.d64 / dos window.boot (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  684b  |  16 lines
  1. 10 print"[147]":ifa=0thena=1:print"[155]  loading...":load"dos window.obj",8,1
  2. 20 clr:dim t(4):a$=chr$(157)+chr$(157)+chr$(157):n$="dos-window"
  3. 30 printchr$(147)spc(134)n$:printspc(43)"want to set the t.o.d. clock ? y";
  4. 40 print a$;:input b$:ifb$<>"y"then80
  5. 50 print:input"  hours    [157][157][157][157][157]";t(1):ift(1)>12thenprint"[145][145][145]":goto50
  6. 60 input"minutes    [157][157][157][157]";t(2):ift(2)>59thenprint"[145][145][145]":goto60
  7. 70 input"seconds    [157][157][157][157]";t(3):ift(3)>59thenprint"[145][145][145]":goto70
  8. 80 fori=1to3:h=int(t(i)/10):l=t(i)-10*h:t(i)=16*h+l:next
  9. 90 c=56587:pokec+4,peek(c+4)and127
  10. 100 fori=0to3:pokec-i,t(i+1):next
  11. 110 print"1.to use "n$", press ctrl-d.":print
  12. 120 print"2.press return at the "chr$(18)"status:"chr$(146)" line, to"
  13. 130 printspc(2)"close window and return."
  14. 140 print"3.to deactivate, press run/stop-restore."
  15. 150 print"4.sys 51808, to reactivate.":sys51808:new
  16.